home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / jwlthief.zip / FUNAPP.CLS < prev    next >
Text File  |  1990-04-12  |  363b  |  16 lines

  1. /* This space unintentionally left blank */!!
  2.  
  3. inherit(Application, #FunApp, nil, 2, nil)!!
  4.  
  5. now(class(FunApp))!!
  6.  
  7. now(FunApp)!!
  8.  
  9. /* This method is executed when the application starts up. */
  10. Def init(self, str)
  11. { init(self:ancestor, str);
  12.   mainWindow := defaultNew(FunWindow, "Jewel Thief");
  13.   show(mainWindow, 1);
  14. }!!
  15.  
  16. /* Class Initialization */